Preserve incoming order of messages with same timestamp

* rcirc.el (rcirc-print): Emulate time-less-or-equal-p

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index abe4cfb0b30895b1963f8897596787bbbd32ef26..50ddb6ca0506dde47f1c6c65e00c450854e08a83 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -1767,7 +1767,7 @@ connection."
               (goto-char (or (previous-single-property-change (point) 'hard)
                              (point-min)))
               (when (let ((then (get-text-property (point) 'rcirc-time)))
-                      (and then (time-less-p then time)))
+                      (and then (not (time-less-p time then))))
                 (next-single-property-change (point) 'hard)
                 (forward-char 1)
                 (throw 'exit nil))))